home *** CD-ROM | disk | FTP | other *** search
/ Libris Britannia 4 / science library(b).zip / science library(b) / MEDICAL / 2608A.ZIP / BUGFIXGP.ZIP / FPCIMM.SRC < prev    next >
Text File  |  1990-11-21  |  7KB  |  343 lines
  1. ;\|
  2. ;FPCIMM.SRC     Translated from FPCIMM.EDT by Roger Mathew's EDT2SRC Ver 4.11
  3. ;FPCTARG  12:09:55 PM  17/ 6/90   |
  4. define(RESULT|A|1||)
  5. define(CONTYN|A|1||)
  6. define(3_POS|N|1||)
  7. define(Q_END|S|8||)
  8. define(IN_BY|S|8||)
  9. define(FLAG|N|1||)
  10. define(MEM_TD|S|8||)
  11. define(MAX_CTR|N|3||)
  12. define(PER_CTR|N|3||)
  13. define(M_POS|N|1||)
  14. define(DOB1|S|8||)
  15. define(DOB2|S|8||)
  16. define(GP_CODE|A|4||)
  17. define(MEM_DOC|N|1||)
  18. define(NO_CTR|N|4||)
  19. define(YES_CTR|N|4||)
  20. define(TOT_CTR|N|4||)
  21. define(D_CTR|N|3||)
  22. define(P_CTR|N|3||)
  23. define(TO_DATE|S|8||)
  24. define(M_CTR|N|3||)
  25. define(PER|N|1||)
  26. define(GMS1|A|1||)
  27. define(MON1|N|2||)
  28. define(MON2|N|2||)
  29. define(GMS2|A|1||)
  30. define(GMS3|A|1||)
  31. define(DOC_NAME|A|23||)
  32. define(NO_CTR|N|3||)
  33. define(MEM_PER|S|8||)
  34. define(TD|S|8||)
  35. date(TD|G)
  36. open(GPSETUP||0|)
  37. open(PATIENT||0|)
  38. open(RECALLS||0|)
  39. open(IMDATE||0|)
  40. open(MEMORY||0|)
  41. find(B|HEADING||)
  42. trap(q|g|exit_4)
  43. START:
  44. mount(NEWS|S)
  45. enter(IN_BY||||N|N|N|||N)
  46. enter(Q_END||||N|N|N|||N)
  47. enter(TO_DATE||||N|N|N|||N)
  48. MON1 =xmt(TO_DATE)
  49. find(B|MEM_NAME||)
  50. DOB1 = (TO_DATE-1095)
  51. DOB2 = (TO_DATE-730)
  52. enter(DOB1||||N|N|N|||N)
  53. enter(DOB2||||N|N|N|||N)
  54. enter(CONTYN|"YN"|||Y|Y|N|||N)
  55. if CONTYN <> ("Y") goto START
  56. MEM_DOB1 = (DOB1)
  57. MEM_DOB2 = (DOB2)
  58. MEM_TO_DATE = (TO_DATE)
  59. MEM_Q_END = (Q_END)
  60. MEM_IN_BY = (IN_BY)
  61. save(MEMORY|N|Y)
  62. MEM_DOC = (1)
  63. trap(I|G|EXIT2)
  64. gosub MOUNT
  65. STARTER:
  66. find(B|HEADING||)
  67. DOC_NAME = (RPDOCTOR[MEM_DOC])
  68. if MEM_DOC = (1) then GP_CODE = ("V4")
  69. if MEM_DOC = (2) then GP_CODE = ("G44")
  70. if MEM_DOC = (3) then GP_CODE = ("P")
  71. if MEM_DOC = (4) then GP_CODE = ("N")
  72. trap(P|S|SHEADING)
  73. ptof
  74. DATE.OF.BIRTH = (DOB1)
  75. find(G|DATE.OF.BIRTH|EXIT|)
  76. TEST:
  77. pmsg(RECORD.NUMBER|1|1|N|N|S|)
  78. if DOCTOR <> (MEM_DOC) goto NEXT
  79. if DATE.OF.BIRTH > (DOB2) goto EXIT
  80. gosub FINDREC
  81. NEXT:
  82. find(N|PATIENT|EXIT|)
  83. goto TEST
  84. FINDREC:
  85. COD.REF = (RECORD.NUMBER)
  86. find(M|COD.REF|NOCOD|)
  87. IMDATE.COD = (COD.REF)
  88. find(M|IMDATE.COD|NO_IMDATEX|)
  89. NO_IMDATE:
  90. MEM_PER = (IMDATE3)
  91. PER =loc("P"|COD[3]|1||4)
  92. if PER > (0) then MEM_PER = (0)
  93. GMS1 = ("Y")
  94. GMS2 = ("Y")
  95. GMS3 = ("Y")
  96. if IMDATE3 = (0) then GMS1 = ("")
  97. if MEM_PER = (0) then GMS2 = ("")
  98. if IMDATE4 = (0) then GMS3 = ("")
  99. gosub MONTH
  100. pfmt(13|||N|N|)
  101. if IMDATE3 > (0) then D_CTR = (D_CTR+1)
  102. if IMDATE4 > (0) then M_CTR = (M_CTR+1)
  103. if MEM_PER > (0) then P_CTR = (P_CTR+1)
  104. MEM_PER = (0)
  105. TOT_CTR = (TOT_CTR+1)
  106. clr(IMDATE|B)
  107. clr(RECALLS|B)
  108. ret
  109. NOCOD:
  110. clr(IMDATE|B)
  111. clr(RECALLS|B)
  112. pfmt(14|||N|N|)
  113. pops
  114. goto NEXT
  115. SHEADING:
  116. pfmt(1|||N|N|)
  117. pfmt(2|||N|N|)
  118. pfmt(3|||N|N|)
  119. pfmt(4|||N|N|)
  120. pfmt(5|||N|N|)
  121. pfmt(6|||N|N|)
  122. pfmt(7|||N|N|)
  123. pfmt(8|||N|N|)
  124. pfmt(9|||N|N|)
  125. pfmt(10|||N|N|)
  126. pfmt(11|||N|N|)
  127. pfmt(12|||N|N|)
  128. pblnk(1)
  129. ret
  130. MOUNT:
  131. pchr(P|4)
  132. mount(NEW1|R|P)
  133. pset(132|70|66)
  134. pchr(P|1)
  135. ret
  136. EXIT:
  137. pfmt(10|||N|N|)
  138. pfmt(19|||N|N|)
  139. pblnk(1)
  140. pfmt(16|||N|N|)
  141. pfmt(17|||N|N|)
  142. pfmt(18|||N|N|)
  143. gosub LASTPAGE
  144. TOT_CTR = (0)
  145. D_CTR = (0)
  146. FLAG = (0)
  147. P_CTR = (0)
  148. M_CTR = (0)
  149. MEM_DOC = (MEM_DOC+1)
  150. if MEM_DOC > (4) goto EXIT2
  151. goto STARTER
  152. EXIT2:
  153. trap(P|D)
  154. ptof
  155. run("FPCIMB")
  156. NO_IMDATEX:
  157. clr(IMDATE|B)
  158. pfmt(15|||N|N|)
  159. pops
  160. goto NEXT
  161. MONTH:
  162. if FLAG = (1) goto MONTH2
  163. if FLAG = (2) goto MONTH3
  164. if FLAG = (3) ret
  165. if DATE.OF.BIRTH > (DOB1+91) do
  166. {
  167. pfmt(10|||N|N|)
  168. FLAG = (1)
  169. }
  170. MONTH2:
  171. if DATE.OF.BIRTH > (DOB1+182) do
  172. {
  173. pfmt(10|||N|N|)
  174. FLAG = (2)
  175. }
  176. MONTH3:
  177. if DATE.OF.BIRTH > (DOB1+273) do
  178. {
  179. if FLAG = (3) ret
  180. pfmt(10|||N|N|)
  181. FLAG = (3)
  182. }
  183. ret
  184. LASTPAGE:
  185. trap(P|D)
  186. ptof
  187. pfmt(1|||N|N|)
  188. pblnk(1)
  189. pfmt(2|||N|N|)
  190. pfmt(3|||N|N|)
  191. pfmt(4|||N|N|)
  192. pfmt(20|||N|N|)
  193. pblnk(1)
  194. pfmt(10|||N|N|)
  195. pblnk(1)
  196. pfmt(21|||N|N|)
  197. pfmt(22|||N|N|)
  198. pblnk(1)
  199. pfmt(23|||N|N|)
  200. pfmt(24|||N|N|)
  201. pfmt(25|||N|N|)
  202. pfmt(26|||N|N|)
  203. pfmt(27|||N|N|)
  204. pfmt(28|||N|N|)
  205. pfmt(29|||N|N|)
  206. pblnk(3)
  207. pfmt(30|||N|N|)
  208. pblnk(1)
  209. pfmt(31|||N|N|)
  210. pblnk(6)
  211. pfmt(10|||N|N|)
  212. pfmt(16|||N|N|)
  213. pfmt(17|||N|N|)
  214. pfmt(18|||N|N|)
  215. ptof
  216. ret
  217. exit_4:
  218. run("recmenu")
  219. \STNEWS    
  220.  
  221.  
  222.  
  223.  
  224.  
  225.  
  226.  
  227.                  FPC TARGET PRINT OUTS 12" PAPER
  228.              ╔═══════════════════════════════════════╗
  229.              ║   Forms to be in by :&                ║
  230.              ║   Payment due quarter end :&          ║
  231.              ║             FPC TARGET DATE:&         ║
  232.              ║ FROM DATE OF BIRTH - LOWEST:&         ║
  233.              ║  TO DATE OF BIRTH - HIGHEST:&         ║
  234.              ║  Continue Y/N :&                      ║
  235.              ╚═══════════════════════════════════════╝
  236.                             ESC-EXIT
  237.  
  238.  
  239.  
  240.  
  241.  
  242.  
  243.  
  244. \
  245. IN_BY
  246. Q_END
  247. TO_DATE
  248. DOB1
  249. DOB2
  250. CONTYN
  251. \
  252. \R NEW1    
  253.                                             NORTH YORKSHIRE FAMILY PRACTITIONER COMMITTEE
  254.                                                   CHILDHOOD IMMUNISATION TARGETS
  255.                                                    PATIENT COUNT AS AT &
  256.                                                          Printed : &
  257. Listed below are patients for whom a Target payment may be due at the quarter ending &        according to their immunisation status
  258. as at &       .
  259. Please enter the date of each completing immunisation in the appropriate box.If the completing immunisation of the course of treat-
  260. ment was administered under General Medical Services, please tick the box "As  Gms". Forms should be returned to your responsible
  261. FPC by 01.08.90 in order for payment to be made.
  262. ------------------------------------------------------------------------------------------------------------------------------------
  263. Capitation Age 2
  264. Patient's Name                 D.o.B.          Nhs.Num         DT /Polio   GMS    Pertussis   GMS   Measles/MMR   GMS
  265. &                              &               &               [&       ]  [&]   [&       ]   [&]   [&       ]    [&]
  266. &                            NO RECALL
  267. &                            NO IMDATE
  268. &
  269. &
  270. &
  271. &                                              TOTALS  [&   ]    [&  ]   [&  ]     [&  ]     [&  ]     [&  ]      [&  ]
  272.                  Payment due quarter ending &           : Forms to your responsible FPC by &
  273.                        I certify that the number of patients indicated have been immunised and
  274.                        I claim the appropriate fee for those patients as summarised below:-
  275.                        -------------  COMPLETED COURSES -----------     Measles
  276.                        DT + Polio     As GMS   Pertussis     As GMS       MMR       As GMS
  277. North Yorkshire         [&  ]         [&  ]      [&  ]       [&  ]      [&  ]       [&  ]
  278.  FPC
  279.                       --------------------------------------------------------------------
  280.            TOTAL        [&  ]         [&  ]      [&  ]       [&  ]      [&  ]       [&  ]
  281.                       --------------------------------------------------------------------
  282.       Signature of Doctor..............................................
  283.                      Date..............................................  Code Num:
  284.  
  285.  
  286.  
  287.  
  288.  
  289.  
  290.  
  291.  
  292.  
  293.  
  294.  
  295.  
  296.  
  297.  
  298.  
  299.  
  300.  
  301. \
  302. TO_DATE
  303. TD
  304. Q_END
  305. TO_DATE
  306. PATIENT.NAME
  307. DATE.OF.BIRTH
  308. NHS.NUM
  309. IMDATE3
  310. GMS1
  311. MEM_PER
  312. GMS2
  313. IMDATE4
  314. GMS3
  315. PATIENT.NAME
  316. PATIENT.NAME
  317. DOC_NAME
  318. AD1
  319. AD2
  320. AD3
  321. TOT_CTR
  322. D_CTR
  323. D_CTR
  324. P_CTR
  325. P_CTR
  326. M_CTR
  327. M_CTR
  328. Q_END
  329. IN_BY
  330. D_CTR
  331. D_CTR
  332. P_CTR
  333. P_CTR
  334. M_CTR
  335. M_CTR
  336. D_CTR
  337. D_CTR
  338. P_CTR
  339. P_CTR
  340. M_CTR
  341. M_CTR
  342. \
  343.